Top 10k strings from Spectrum Forth v1.1 (1982)(Sinclair Research)[re-release].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 k*~b+p+q"~b
   2 SpecForth 
   1 sy<g5e?i|i
   1 e*~b^#V#s#r
   1 e*~b^#V#"~b
   1 e*~bN#F#"~b
   1 c7c*~b++++"~b
   1 b"=\!`{"c\#"e\
   1 ZX-FORTH 1.1^d
   1 Ss<gZsyflf
   1 Specfort  ,
   1 READY CASSETTE
   1 EMPTY-BUFFER
   1 DEFINITION
   1 Created with Ramsoft MakeTZX
   1 BYTES FREE
   1 BLOCK-WRIT
   1 ALL RIGHTS RESERVED^d
   1 : i dup s r ; : top 0 r# ! ;                                    : clear dup first ! scr ! 10 0 do forth i editor e loop ;       forth definitions : 2drop drop drop ; : 2swap rot >r rot r> ;   editor definitions                                              : -text swap -dup if over + swap do dup c@ forth i c@ - if      0= leave else 1+ then loop else drop 0= then ;                  : match >r >r 2dup r> r> 2swap over + swap do 2dup forth i      -text if >r 2drop r> - i swap - 0 swap 0 0 leave then loop      2drop swap 0= swap ; : 1line #lag pad count match r# +! ;       : find begin 3ff r# @ < if top pad here c/l 1+ cmove 0 error    endif 1line until ;                                             : delete >r #lag + forth r - #lag r minus r# +! #lead +         swap cmove r> blanks ; : n find 0 m ; : f 1 text n ;            : b pad c@ minus m ; : x 1 text find pad c@ delete 0 m ;        : till #lead + 1 text 1line 0= 0 ?error #lead + swap            - delete 0 m ;    -->                                         
   1 : c 1 text pad count #lag rot over min >r forth r r# +! r - >r  dup here r cmove here #lead + r> cmove r> cmove 0 m ;           forth definitions decimal                                       ;s                                                                                                                              ( Specforth Editor V1.1 )                                       ( Copyright 1983 by Artic Computing Ltd. )                      ( Written by Chris. Thornton - 1983 )                                                                                                                                                           ( For further details see the Editor manual supplied )                                                                                                                                                                                                                                                                                                                                        
   1 .cSc*~b^#V
   1 +*c\+"c\"e\x
   1 *~b++"~bs#r
   1 (C)1982 ARTIC COMPUTING LTD.^d
   1 ( Specforth editor by C.A.Thornton,1983 )                       forth definitions hex                                           : text here c/l 1+ blanks word here pad c/l 1+ cmove ;          : line dup fff0 and 17 ?error scr @ (line) drop ;               vocabulary editor immediate hex                                 : where dup b/scr / dup scr ! ." Scr # " decimal . swap c/l     /mod c/l * rot block + cr c/l type cr here c@ - spaces 5e       emit [compile] editor quit ; editor definitions                 : #locate r# @ c/l /mod ;       : #lead #locate line swap ;     : #lag #lead dup >r + c/l r> - ; : -move line c/l cmove ;       : h line pad 1+ c/l dup pad c! cmove ; : e line c/l blanks ;    : s dup 1 - 0e do i line i 1+ -move -1 +loop e ;                : d dup h 0f dup rot do i 1+ line i -move loop e ;              : m r# +! cr space #lead type 5f emit #lag type #locate . drop ;  : t dup c/l * r# ! dup h 0 m ;  : l scr @ list 0 m ;          : r pad 1+ swap -move ;         : p 1 text r ;    -->         
   1 "v<g?i|i[i
   1 "SpecForth"